home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
ELECTRIC
/
DSPICE0S.ZIP
/
alias.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-11-22
|
3KB
|
89 lines
/* alias.f -- translated by f2c (version of 3 February 1990 3:36:42).
You must link the resulting object file with the libraries:
-lF77 -lI77 -lm -lc (in that order)
*/
#include "f2c.h"
/*< double precision function alias(anam) >*/
doublereal alias_(anam)
doublereal *anam;
{
/* Initialized data */
static struct {
char e_1[112];
doublereal e_2;
} equiv_4 = { {'v', 'a', ' ', ' ', ' ', ' ', ' ', ' ', 'v', 'b', ' ',
' ', ' ', ' ', ' ', ' ', 'c', 'c', 's', ' ', ' ', ' ', ' ',
' ', 'n', 's', ' ', ' ', ' ', ' ', ' ', ' ', 'c', '2', ' ',
' ', ' ', ' ', ' ', ' ', 'p', 't', ' ', ' ', ' ', ' ', ' ',
' ', 'c', '4', ' ', ' ', ' ', ' ', ' ', ' ', 'p', 'e', ' ',
' ', ' ', ' ', ' ', ' ', 'm', 'e', ' ', ' ', ' ', ' ', ' ',
' ', 'p', 'c', ' ', ' ', ' ', ' ', ' ', ' ', 'm', 'c', ' ',
' ', ' ', ' ', ' ', ' ', 'p', 's', ' ', ' ', ' ', ' ', ' ',
' ', 'm', 's', ' ', ' ', ' ', ' ', ' ', ' ', 'i', 'k', ' ',
' ', ' ', ' ', ' ', ' '}, 0. };
#define anam1 ((doublereal *)&equiv_4)
static struct {
char e_1[112];
doublereal e_2;
} equiv_5 = { {'v', 'a', 'f', ' ', ' ', ' ', ' ', ' ', 'v', 'a', 'r',
' ', ' ', ' ', ' ', ' ', 'c', 'j', 's', ' ', ' ', ' ', ' ',
' ', 'n', 's', 's', ' ', ' ', ' ', ' ', ' ', 'i', 's', 'e',
' ', ' ', ' ', ' ', ' ', 'x', 't', 'i', ' ', ' ', ' ', ' ',
' ', 'i', 's', 'c', ' ', ' ', ' ', ' ', ' ', 'v', 'j', 'e',
' ', ' ', ' ', ' ', ' ', 'm', 'j', 'e', ' ', ' ', ' ', ' ',
' ', 'v', 'j', 'c', ' ', ' ', ' ', ' ', ' ', 'm', 'j', 'c',
' ', ' ', ' ', ' ', ' ', 'v', 'j', 's', ' ', ' ', ' ', ' ',
' ', 'm', 'j', 's', ' ', ' ', ' ', ' ', ' ', 'i', 'k', 'f',
' ', ' ', ' ', ' ', ' '}, 0. };
#define anam2 ((doublereal *)&equiv_5)
/* System generated locals */
doublereal ret_val;
/* Local variables */
static integer iknt;
/*< implicit double precision (a-h,o-z) >*/
/*< dimension anam1(14),anam2(14) >*/
/*< data anam1 /3hva ,3hvb ,3hccs,3hns ,3hc2 ,3hpt ,3hc4 , >*/
/*< 1 3hpe ,3hme ,3hpc ,3hmc ,3hps ,3hms ,3hik / >*/
/*< data anam2 /3hvaf,3hvar,3hcjs,3hnss,3hise,3hxti,3hisc, >*/
/*< 1 3hvje,3hmje,3hvjc,3hmjc,3hvjs,3hmjs,3hikf/ >*/
/* this function returns the mgp equivalent of the gp parameters */
/* (those which apply) */
/*< iknt=0 >*/
iknt = 0;
/*< alias=anam >*/
ret_val = *anam;
/*< 10 iknt=iknt+1 >*/
L10:
++iknt;
/*< if(iknt.gt.14) return >*/
if (iknt > 14) {
return ret_val;
}
/*< if(anam1(iknt).ne.anam) go to 10 >*/
if (anam1[iknt - 1] != *anam) {
goto L10;
}
/*< alias=anam2(iknt) >*/
ret_val = anam2[iknt - 1];
/*< return >*/
return ret_val;
/*< end >*/
} /* alias_ */
#undef anam2
#undef anam1